SetDirectory["~/AcademicPensieve/Projects/SL2Invariant"];
<< SL2Invariant.m
SetDirectory["~/AcademicPensieve/Projects/SL2Invariant/k=2"];

$k=2; 
ℏ=γ=1;
$QZipFail=True;
tab310=Table[
{n,type,k}=List@@K;
fname="Data/"<>ToString[n]<>(type/.{Alternating->"a", NonAlternating->"n"})<>ToString[k]<>".m";
Switch[FileType[fname],
None,z=Echo@(K->Timing[𝔼4@Z@K]);Put[z, fname],
File,z=Get[Echo@fname]
];
z,
{K,AllKnots[{11,12}]}
]

Exit[]